VOL, J STA TUS SEPTEMBER 
NO, 8 1 500 | 1983 


. 


* 12 issues £10.50 (UK) * overseas £14.50 * published monthly * 


*-° Edited by RONALD COHEN, '62 BLENHEIM CRESCENT, LONDON W.11 % 


STATUS 
So many letters recently have referred to this newsletter as a 'club' 
or'group', and to other subscribers as 'fellow-members' » that | feel 
| must take this opportunity to gently remind readers that STATUS 1500 
is not quite a ‘user-group', even though in many ways it functions very 
like one. The idea of being a club is fostered by the very friendly help 
so many subscribers have extended toward me, and to each other; but | am 
old-fashioned enough to believe that a club or group belongs to its members, 
who appoint an executive directly responsible to them. STATUS 1500 is not 
quite like this, nor do | think that democratic or committee control is 
practical when subscribers are not able to meet personally. Nor indeed 
would | wish my freedom of action fettered by the sort of controls a 
club ought to have. | know that most user-groups function as autocratically 
pe ng prefer to retain nominal as well as practical independence. 
id the t commi tté es me shudder; committees are institutions 
ere commonsense is perpetually sacri fre 4 eee erence diplomacy. x 
If anyone starts a user-group they would have my enthusiastic support: 
| do not propose to start one myself. STATUS 1500 remains a private 


newsletter. 


ReARK ESE 


TANDY at CENTREPOINT fee] that | was not quite fair to them in the JUNE 
issue. In particular, they have mildly reproved me for not mentioning 
that they palliated the effects of their mistake by lending me a 
cassette-recorder while they eventually mended my own. | had understood 
that they did not wish this favour publicised: | am now happy to express 
my gratitude. | may also point out that it was only their truthfulness 
ard straightforwardness - not to be expected from every organisation - that 
gave me the chance to be a little less than fair to them. 


zkkekRk RK SG 


Advertising material usually arrives long after the deadline, and then 
is the wrong size or shape. Every care is taken by the editor to prevent 
advertisements being in any way misleading: and we will not knowingly 
allow any misleading material to appear. Nevertheless in the 2 or 3 

days usually available it is not always possible to check it out qs 
exhaustively as might be desirable: and so it necessary to warn readers 
that this newsletter is not to be held responsible for the accuracy or 
otherwise of the contents of any advertisement. 


74 STATUS 78 BINARY TO DECIMAL 

75 DISTRESS SIGNALS 78 MINDROGGLE CORNER 

76 PEEK, POKE & MEMORY - VIII 79 TECHNICAL REFERENCE MANUAL 
77 "LABELS" reviewed 

77 "SCREEN DUMP" 79 CALL 

77 ADDRESS FINDER 80 INTERFACE - 1 

78 DELETE [2] 82 Advertisements 


Do not sell this PDF !!! 


DISTRESS SIGNALS 


R.WILLIAMES asked - some weeks ago ~ for more ‘utilities’ such as 
DELETE and RENUMBER, 


I delayed printing your request until I had something to offer. I hope 
the utilities on page 77 and page 78 will satisfy your hunger for the 
moment. Ideas for utilities are always welcome. The utilities themselves 
are even more so. 


A.GENZEL suggests very reasonably that the newsletter should be more 
orientated towards the portable uses of the PC 1500, rather than 
printing the sort of program which is generally available for any 
desk machine. 


This is not as easy as it sounds. The trouble is that most peoples' 
'desk' needs coincide: Utilities, Texthandling, Sorting, Databases, etc., 
whereas their portable or outdoor uses are all so wildly different. 
Navigation? I only know of two subscribers involved in this: one in the 
air, and the other at sea - two entirely different disciplines. Sport? 
We expect to print an interesting cricket-scoring program in a few 
months - but I would hesitate to risk my precious PC 1500 at the 
average football match! And as for other uses, I do not think it 

right to devote much space to programs which are of interest only 

to specialists. 


C.J.NORTH has a distressed index finger as a result of writing the whole 
of his article on INTERFACING ( page 80 ) with the aid of SUPERTEXT! 


Many thanks - a noble effort! 


SIMON COX has successfully extended his PC 1500 to 96K.He has built the 
extension himself, at a cost of about £50. It is fitted externally. 
Any enquiries will be forwarded to him. 


C.A.F.LEDSAM has further information about R.J.COURT's query on page 43, 
The fault is indeed in SHARP's program: a data entry that is too 
large to be read by the data-reading statement. . 


ANDREW HALSEY who successfully connected his TANDY COLOR PRINTER to his 
PC 1500 via parallel interface, has now also succeeded with the 
RS232 sid€**TANDY supply a lead for the purpose, price £11.95. 


Further to K.SQUTHGATE's problem last month, here is an example of an 
EVAL routine: 


10: REM ABCDEFGHIJKLMNOPORSTUVWX YZABCDEFGHIJKLMNOPORSTUVWXYZ 
15: B=B+A:USING “#####.##"=LPRINT AS(O): LPRINT A;B:LF 1 

30: “A“ ON ERROR GOTO 35 

32: DIM A$(0)*52 

35: INPUT A$(0): CLS: L=LEN A$(0): POKE 14536, 65,61 

60: FOR F=1 TO L: POKE 14537+F, ASC MIDS (A$(0),F,1): NEXT F 
70: POKE 14538+F, 58, 241, 171: GOTO 10 


[execute by DEF A] 
[respond to the ? with an expression, such as 3.7*(17/99)] 


eee ee 


*** Protocols are: 
Turn all bits on. 
SETCOM 600,7,N,2 
SETDEV PO 
CONSOLE 80,0,1 
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PEEK, POKE & MEMORY ~ VIII 


Since the DELETE program on page 69 (August issue) consists mainly of 
PEEKs and POKEs, and affects the memory, it is a suitable subject for 
detailed examination in this column. 


112: sets S as the address where the subject program ends. 

117: F is set at 1 byte before beginning of program: GOSUB 500 is a special 
case for first line. 

120: FOR (1st byte after "length of first line" ) to (end of subject program) 

130: picks up 13 , (end-of-line-marker), and then GOSUB 500 

500: Sets Y as “356*(first address after address of EOL) plus (second address), 
which is the way the line number being examined is held in memory. 

510: If Y is identical to (ist line no. to delete) sets J as ist address 
for deletion, and point where 'Ist address afer last deleted address" 
is to be placed. In fact, this replacement acts as deletion. 

520: Sets K as "' address of start of last line to delete'', then picks up 
éeddress holding length-of-line, and sets K as "Ist address of next 


line'' (ist line undeleted, after deleted lines). If found, loop completed. 


525: Advances F counter by length-of-line to next EOL marker (13), and RETURN. 
160: Sets L as distance between Ist and last addresses for deletion. 
170: From '' start of block to remain" to "end of subject program’... 
180: ..successively transfer addresses to remain into addresses to be deleted. 
210: Sets T as new length of shortened subject program, and U and V 
as T divided into 256ary. 
215: The search-and-edit pointers had been altered by the MERGE operation: 
these are now restored to be identical with start-of-program pointers. 
220: Put End-of-Program marker into address after end of shortened program. 
Puts U and V (see line 210) into end-of-program pointers. 
230: End. 


It is fatally easy to destroy DlMensioned and 2-chr. variables by RUN or 
CLEAR. However if you have not re-DIiMensioned, they are not lost: it is only 
the access to them that is lost. STATUS 3, which indicates the beginning of 
the area where you have stored them, at the end of the program area, is 
held (in the usual 256ary) in addresses 30873 and 30874. If you can restore 


the right figures into these addresses, you will have recovered your variables. 


If you had indeed noted the contents of these addresses (but who has ever 

done so!) there is no problem. If not, it can be worked out. Allow 8 bytes 

for the contents of each numeric variable, plus 7 bytes for its title, 
making 15 in all. For alphabetic variables, it is 16 bytes for contents, 

and 7 for the title. For DiMensioned variables, the system is the same. 

Allow 7 for the title, and 8 for each numeric variable. Thus DIM A(2), 

which has dimensioned 3 variables -don't forget A(0)- will reserve 

31 addresses, (3*8+7). For alphabetics, DIM A$(2) would require 55 addresses, 
(3%16+7). If you had specified a particular length for your variables, 

such as DIM A$(S)*20 , this would come to 127 spaces. (6*20+7). 


So in this case you would deduct 127 from your normal STATUS 3, divide this 
into 256ary, POKE the two figures back into addresses 30873 and 30874, 
and your access to the variables is restored. 


If you PEEK at the contents of anumeric unfixed variable, you will have 
difficulty in recognising it as ‘the number you first though of'. The 
machine saves space by storing the figures in pairs. Take a number such 

as AA=102134. These are stored in the form 10 21 34, in 3 bytes. But owing 
to the habit the machine has of storing everything in hex, and displaying 
it in decimal, successive PEEKs into the location of AA will display 

16 33 52 . The computer has assumed, for display purposes, that these were 
hex figures: and has misleadingly translated 10 ~- because 610 is dec 16- 
into a displayed 16. Remember that this storage is for the purposes of 


the computer's operations: the display is secondary. 
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LABELS 


BY 
MIKE O REGAN 
18:" "CLEAR : 68:FOR H=1TO S: 
CSIZE 2:S=]: FOR 1=@TO 2: 
DIM L$¢5)x3e8 GLCURSOR (188- 
28:FOR J=1TO 5S: HX38-1, -39): 
INPUT L$#¢J)> LPRINT L$(H): 
30: IF LEN L$(J>>sS NEXT 1:NEXT H 
LET S=LEN L$(J 78: TEXT :LF Sk.75 
> : END 
48:NEXT J 


5@:GRAPH :RLINE - 
(288, Sk-15), @, 
8,B:ROTATE 1 


fe Re ed THRE oy cuarzie szmpsow 


{There is a Similar routine in the PC 1500 “APPLICATIONS MANUAL". 
However the SHARP version is 10 times as slow, and 10 times as long.] 


EXECUTE by DEF A 
10: "A" GRAPH: GLCURSOR (150,0):SORGN 
20: FOR K=0 TO 155 

30: P=POINT K: IF P=0 THEN 70 

40: FOR J=0 TO 7: DOT=2AT:GLCURSOR (-J*6,-K*6) 

50: IF (P AND DOT)=DOT RLINE -(4,4),,,B 


60: NEXT J 
70: NEXT K 
ADDRESS FINDER - FROM THE KEYBOARD 
This routine instantly gives the start address of any line. 


Key in, and ENTER, statements successively. : 
The illogical mixture of hex and decimal is for the sake of comoression. 


1) K#STATUS 2-STATUS 1-1 

2) G=K-132 for wherever] 

3] N= [line number required] 

4) M=INT (N/256) P 

5] WeN-256*M 

6] POKE G,&BS,13,68,7,&99,4,&B5 ,M,68 ,7 ,&99,12,&B5 ,W,68,7,&99 ,18,70,&FB,&9A 
7] CALL G,K 

8) PRINT K 


Certain extraordinary coincidences* can cause this to give a wrong address, 
so it it is wise to check before making use of the result. 


*such as line !3 bytes long, and the first 2 bytes of the line having ; ; 
the same ASCIY codes as the line number required. Improbable, but not impossible. 
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DELETE (2) 


Here is the superfast version promised last month. Merge it with 
subject program. Before doing so, make sure you have at least 555 


bytes free. 


Running time to delete 4K from 9K : 3 seconds. 


188: "D"INPUT “Ist 
line";A 
185: INPUT “last li 
ne";B 
118:S=STATUS 2-553 
:G=STATUS 2- 
STATUS 1-163 
120:E=PEEK 38821:N 
=A: GOSUB 582 
148: F=256*E+197 
150:P=PEEK (F-2):Q 
=PEEK (F-1) 
160:N=B:GOSUB 58a 
178:R=PEEK (F-2):2 


175: K=256¥*¥R+Z: K=K+ 
3+PEEK (K+2):R 
=INT (K7256):2 
=K-256¥*R 

188: J=256¥P+0: L=K- 
J 


198:POKE G, &48,R, & 
4A, 2, &58, P, &5A 
> Q, 8FS, &4C,C, & 
99, 5, &4E, D, &39 
» 9, &SA, B 

288:CALL G 

218: T=S-L-1:U=INT 
€T7256):VU=T-25 


=PEEK (F-1):C= 6*U 
INT ¢€S7256):D= 215:POKE 38825, E; 1 
$-256*C 37 
BINARY TO DECIMAL 

10: INPUT K$ 

15: IF LEN KS<8LET K$="0"+K$: GOTO 15 

20: FOR X=1TO 8 

30: X$=MIDS$ (KS ,X,1) 

40: IF X$="1" LET P=P+2(8-x) 

50: NEXT X 

60: PRINT P: CLEAR: GOTO 10 


MINDBOGGLE CORNER 


The machine code routine occupies part of the Template area. 


228:POKE T, 255: 
POKE 38823, U, V 
238:BEEP 3:END 
S@8:MN=INT (N/256): 
W=N-256%*n 
728:POKE G, &68, E, & 
6A, 196, &BS, M, & 
64, &27, &33, 4 
738:POKE G+18, &B5, 
W, &64, &27, &93, 
&C, &66, &A4, BAE 
»E, 195, &24, &AE 
»E, 196, &394 
748:CALL G: RETURN 


The pattern on the left,from a program by SIMON COX, is produced by the 
program below, When first | keyed it in, | inadvertently added 1 extra 
character, and produced the pattern on the right. What was the character, 
and where was it placed? Usual splendid prize: deadline 21st September. 


(2: GRAPH 


28:R=180:P=120 
3A:GLCURSOR (168, 


9): SORGN 


49:FOR X=8TO P 


STEP 4 


45:D=R*COS XK: E=R¥ 
SIN X:F=R*COS 
(X+P):G=R*SIN 
€X+P):HeR*COS 
CX+#2*P): L=R*¥ 


SIN CX+#+2*P) 


S@:LINE (D,E)-CF, 
G)-CH, 1)-¢(D, Ed 


686:NEXT X 
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PC 1500 TECHNICAL REFERENCE MANUAL reviewed by J.BLAND 


This essential work is at long last available in U.K., and confirms what 

| believe PC 1500 fans have always suspected - that the PC 1500 is a 
beautifully though-out design, with considerable expansion possibilities. 
But why, oh why did it take so long? Why, oh why did SHARP bring out a 
"state of the art'' pocket computer aimed at the serious user, and then 
withold all this information from the serious user for so long? Why indeed 
so much secrecy about the LH 5801 microprocessor? 


In a nutshell, the book contains: 


1) Introduction, with a nice LCD illustration of m/c's speed improvement.4pp. 
2) LH 5801. Very thorough hardware.and machine code details. 62pp. 
3) LH 5810/5811 1/0 chip. Exhaustive detail. 18pp. 
4) PC 1500 system details. A number of Memory Maps: connector pins.26 pp. 
5) Subroutine calls with supplementary information. 32pp. 
6) Machine Code programs. Only 6. unexplained | examples.6pp. 
APPENDIX) Circuit diagrams for computer and all accessories up 
to CE 159. 12 pp. 


It is important to realise that this is a Reference Manual, and not a 
tutorial. SHA%P assume = unfortunately - that you understand about flipflops, 
how to loop in m/c, and so on. For all readers of STATUS 1500 who want to 
progress beyond BASIC, it must be thoroughly recommended for the wealth of 
new information , especially the new information on machine code, subroutine 
calls, and parameters.Rather like a car manual, its usefulness is determined 
by individual requirements for specific areas covered. 


My criticism would be the lack of elaboration on some points. | find it 

terse almost to the point of ambiguity. Just the bare facts, with their sense 
left to the reader, appears to be the SHARP way. The memory maps, for 
instance, are beautifully neat and concise, but necessary detail is often 
just not given. ''DO NOT USE" and "CANNOT BE USED'' are sufficient explanation 
for SHARP; but not for the interested reader, who wants to know WHY? 

Every pin on the LH 5801 is described, with a circuit diagram: but you must 
work out for yourself how certain functions are not supported. 


| see the Manual as being the definitive and absolutely essential source 
bible. The machine code , for instance is far more detailed than .in the 

TANDY listings. The mnemonics are entirely compatible, also with the listings 
in STATUS 1500 ( except for some very minor differences of punctuation). 

But | can see that there is scope for interpretive discussion and analysis 

of many areas for some time to come. 


PC 1500 TECHNICAL REFERENCE MANUAL is available from SHARP (UK) Ltd at £20, 
and from ATLANTIC NORTHEAST MARKETING at $20, + postage. see AUGUST 
edition of STATUS 1500, pages 64 and 71’, for the relevant addresses. 


*** JOHN BLAND is researching Computer Graphics with the aid of a Fellowship 
from the LEVERHULME TRUST. This newsletter is indebted to him for many items 
of informaticn which it has not always been possible to acknowledge individually. 


Se lr a EE AR RL ELIT EE ES LD LANIER. ET DTT TET 
CALL 


A most useful function for machinecode addicts, which is mentioned nowhere 
else, is the statement CALL nnnnn, J_ where nnnnn is an address, and J is 
any variable. When a m/c routine is CALLedin this way, the value of the 
variable is automatically placed in the X-register, and on return to 

BASIC with RTN, provided the Carry bit is set, the contents of the X-register 
are put into the variable. (If in doubt, the Carry bit can be set with SEC). 
For nonnumeric variables there is a similar but somewhat more complex ~~ 
facility which will be mentioned in a later issue. 
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INTERFACE - 1 by Chris North 


INTRODUCTION: The CE-158 provides for two types of connection - serial and 
parallel. The serial port is designed to meet the RS-232C standard (also 
known as EIA and V.24), although not all of the possible connections are 
provided (luckily for PC-1500 owners!), while the parallel port is stated to 
be compatible with the Centronics interface. This article discusses the use 
of the serial interface with various external equipment and the use of the 
parallel interface with printers. It is intended to be a simple guide to 
how to make your PC talk to other devices, not a precise discussion of data 
communications. 


Serial (RS-232C) Interface 


BASICS: First lets establish the major connections provided by the dreaded 
25-pin connector. 


PIN DESCRIPTION ABBR. DTE DCE REMARKS 
1 Protective Earth *———— * Not connected in the CE-158 
2 Transmit Data TD +m.» Essential (with RD) 
3 Receive Data RD » <—— * Essential (except for printers) 
4 Request to Send RTS *-—->. Always used with CTS 
5 Clear to Send CTs -<-— * Always used with RTS 
6 Data Set Ready DSR » kone Used with DTR 
7 Signal Ground Ov ow Essential 
8 Data Carrier Detect DCD OT ‘ee Indicates modem is on-line 
20 Data Terminal Ready DIR «<-->. Used with DSR 


Notes: OTE = Data Terminal Equipment — the PC-1500 plus CE-158 
DCE = Data Communications Equipment - modem plus host 
computer, external printer, micro or other device 
signal generated by DTE/DCE 
. signal received by DCE/DTE 
The meaning of each of these is reasonably clear and all you need to know 
about the status pins (4,5,6,8,20) is that they go high (positive voltage) 
when they are ON. 


* 


SERIAL PRINTERS: Are usually the least complicated devices, often requiring 
only TD and Ov. However it is important to note that most serial printers 
(including all keyboard terminals - teletypes) are wired as DTE and that 
connecting your CE-158 pin 2 (TD) to the printer pin 2 (also TD) is likely 
to be unrewarding! You need to swap TD and RD by reversing pins 2 and 3. 


PC-1500 + CE-156: The state of pins 4,5,6,8 & 20 is indicated by individual 
bits of the status byte which is evaluated by the INSTAT function. When zero, 
each bit indicates a high signal as follows: 


Bit 0 - DTR, low at switch-on set high by OUTSTAT O or on entering 
the terminal mode (via DTZ or TERMINAL commands) 

Bit 1 - RTS, as for DTR 

Bit 2 - CTS, must be high for input/output to proceed ' 

Bit 3 - CD, as for CTS 

Bit 4 - DSR, as for CTS 


MAKING THE CONNECTIONS: The difficult way to connect two serial devices is 
to try to obtain a precise match between all available pins on each device, 
while the easy way is to use only the minimum number of pins required for the 
basic functions and then to add any extra connections after data has been 
transferred successfully. All you need to know is which signals must be set 
for each of the two devices to work individually and then you can attempt to 
match them via your connecting cable. 
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A fairly painless way of meeting the PCs demands is to use its own output 
signals to drive the input, while at the same time providing any possible 
signals needed by the modem or printer. So, general-purpose modem and printer 
(nul l-modem) cables should look like this: 


PIN PIN PIN PIN 
DCE ’ Lace OTE y en) DTE 


(Modem) 3--------—-3 (PC-1500 + CE-158) 3-----—---2 (Printer) 


7-—---—---7 J---— = 7 

4 -4 4- -4 
I Note: I indicates I I 

5 -5 pins to be linked 5- 5 

within the plug. 

6 -6 6-——------6 
I I I 

8 -8 8- -8 
I I 

20 -20 20- 20 


In an attempt to clarify the tortured English of the CE-158 user manual, I 
have added some comments on a few of the special BASIC commands. 


SETCOM: Allows you to set the speed, etc. of the serial interface. A likely 
setting is SETCOM 300,7,E,1, which will work with many printers and host 
computers (via modem). 

COM$: Displays the current SETCOM setting. 

SETDEV: Determines where output from a BASIC conmand is to be directed. 
For a start, with a printer, use SETDEV PO. 

DEV$: Like COM$, shows the assigned device(s). 

OUTSTAT: Discussed earlier. Use OUTSTAT 0 before printing. The two 
terminal modes do this for you. 

INSTAT: Provides a check on the status pins. If communications are not 
working then check that INSTAT = 0. 

LPRINT: If CEV@ = PO then printer output will go to the external printer 
rather than to the CE-150. Obviously, COLOR n, CSIZE n, LCURSOR n, and LF n 
will not now work. See CONSOLE and FEED. 

LLIST: See LPRINT. A very useful way of getting faster, more readable and 
more easily edited program listings than with the CE-150. 

CONSOLE: The command CONSOLE a,b,c handles the end-of-line condition caused 
by an LPRINT. Use a = O to allow unlimited length for printed lines 
(control this within your program), and b = 0, c = 1 to give Carriage Return + 


Line Feed efter each line. This will give correct results with most 
printers in their usual configuration. 
FEED: The command FEED n will send nm <new-line> sequences as defined by the 


CONSOLE command. 

DTE & TERMINAL: Are used to run the terminal emulator program. Recommended 
for a first attempt at communicating with a host computer, as writing your 
own terminal program in BASIC is very difficult. The two commands give 
you slightly different conditions but for an initial try at 300 bps, I suggest 
you use DTE. 


NEXT MONTH: Parallel (Centronics) & Modems 
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SS OUR LATESTPRODUCTS: 


Fister byRonaldCohen ELKAN PRICE 19.95 
text-handling/word processing program—reviewed in Status 1500. 


EASI-CALC 1500 Spreadsheet program ELKAN PRICE 
EASIFILE 1500 © Datamanagement system 19.95 
EASI-TREND 1500 Statistical forecasting each 


EA158C PARALLEL PRINTER LEAD for the CE158 New product fromSharp ELKAN PRICE£38.05 
Coming soon! Coming soon! 

EASI-CASH 1500 Book-keeping for small businesses 

CASH-PLAN | Complete personal finance program 


SEND FOR THE LATEST EDITION OF OUR “ELKAN FILE” 
ELKANELECTRONICS, FREEPOST, 11 BuryNewroad, Preswich, Manchester M25 6LZ or telephone 061-798 7613. (24hour service) 
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